home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / acct.frm < prev    next >
Text File  |  1995-05-07  |  2KB  |  67 lines
  1. VERSION 2.00
  2. Begin Form AcctForm 
  3.    Caption         =   "Test NetWare Accounting Services"
  4.    ClientHeight    =   2265
  5.    ClientLeft      =   2010
  6.    ClientTop       =   1500
  7.    ClientWidth     =   7305
  8.    Height          =   2670
  9.    Left            =   1950
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   2265
  13.    ScaleWidth      =   7305
  14.    Top             =   1155
  15.    Width           =   7425
  16.    Begin ListBox ServerList 
  17.       FontBold        =   -1  'True
  18.       FontItalic      =   0   'False
  19.       FontName        =   "Courier"
  20.       FontSize        =   9.75
  21.       FontStrikethru  =   0   'False
  22.       FontUnderline   =   0   'False
  23.       Height          =   1590
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   7095
  28.    End
  29.    Begin CommandButton OKButton 
  30.       Caption         =   "&OK"
  31.       Default         =   -1  'True
  32.       Height          =   375
  33.       Left            =   3240
  34.       TabIndex        =   0
  35.       Top             =   1800
  36.       Width           =   855
  37.    End
  38. End
  39.  
  40. Sub Form_Load ()
  41.     For connID% = 1 To 8
  42.         'for each connection in workstation's file server name table
  43.         'get the table entry, then see if it's null
  44.         
  45.         serverName$ = String$(48, 0)
  46.  
  47.         If (IsConnectionIDInUse(connID%) = 1) Then
  48.             GetFileServerName connID%, serverName$
  49.             serverName$ = Left$(serverName$, InStr(serverName$, Chr$(0)) - 1)
  50.             If (Len(serverName$) > 20) Then
  51.                 serverName$ = Left$(serverName$, 20)
  52.             End If
  53.  
  54.             If (AccountingInstalled(connID%) = 1) Then
  55.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " Accounting Installed"
  56.             Else
  57.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " Accounting Not Installed"
  58.             End If
  59.         End If
  60.     Next connID%
  61. End Sub
  62.  
  63. Sub OKButton_Click ()
  64.     Unload AcctForm
  65. End Sub
  66.  
  67.